home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Game On
/
Game_On_91-05_1991_-_de_Side_A.d64
/
ninja remix
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
36 lines
100 clr:dimts$(20):dimbl$(20):dimf(20)
110 ts$(1)="05 19":bl$(1)="166":f(1)=1
120 ts$(2)="23 17":bl$(2)="107":f(2)=1
130 ts$(3)="12 14":bl$(3)="221":f(3)=2
140 ts$(4)="21 05":bl$(4)="197":f(4)=2
150 ts$(5)="33 03":bl$(5)="222":f(5)=2
160 ts$(6)="12 06":bl$(6)="131":f(6)=3
170 ts$(7)="22 05":bl$(7)="026":f(7)=3
180 ts$(8)="05 05":bl$(8)="084"
190 ts$(9)="23 05":bl$(9)="025"
200 ts$(10)="12 07":bl$(10)="139"
210 ts$(11)="21 13":bl$(11)="115"
220 ts$(12)="33 11":bl$(12)="140"
230 ts$(14)="22 05":bl$(14)="198"
240 ts$(13)="12 14":bl$(13)="049"
250 fori=1to7
260 iff<>f(i)thengosub430
270 open2,8,15:open1,8,2,"#"
280 iff<>f(i)thengosub390
290 print#2,"u1 2 0 "+ts$(i)
300 print#2,"b-p 2 "+bl$(i)
310 print#1,chr$(173);
320 print#2,"u2 2 0 "+ts$(i)
330 ifi=7then380
340 print#2,"u1 2 0 "+ts$(i+7)
350 print#2,"b-p 2 "+bl$(i+7)
360 print#1,chr$(169)chr$(1)chr$(141)chr$(175)chr$(2)chr$(234);
370 print#2,"u2 2 0 "+ts$(i+7)
380 f=f(i):close2:close1:next:end
390 print#2,"u1 2 0 18 0":print#2,"b-p 2 2"
400 print#2,"m-w"chr$(1)chr$(1)chr$(1)chr$(65):print#1,"a";
410 print#2,"u2 2 0 18 0"
420 return
430 print"insert disk - side"f(i)chr$(13)"press any key !"
440 poke198,0:wait198,1:poke198,0:return